home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / Functions & Programs / •Gadgets / drawing macros / oval < prev    next >
Text File  |  1996-06-01  |  1KB  |  57 lines
  1. { 
  2.  This program draws an oval shape at the last clicked point in the drawing
  3.  window. The oval shape is drawn using a smooth polygon.
  4.  
  5.  The dimensions and orientation of the oval are set in the procedure
  6.  Initialize, below.
  7.  
  8.  To use the program, hit cmd-L (or click the Add button), look at its 
  9.     keyboard equivalent in the Misc menu, clik in the drawing window, 
  10.     and run the program. Then click somewhere else and run the program again. 
  11. }
  12.  
  13.  
  14.  
  15. program Oval;
  16. var h,v,majorAxis,minorAxis,x,ang;
  17.  
  18. procedure initialize;
  19. begin
  20.     majorAxis:=50;            { major axis of the ellipse }
  21.     minorAxis:=10;            { minor axis of the ellipse }
  22.     ang:=10;                                    { orientation }
  23.     
  24.     x:=1-tan(pi/8)*2;
  25.     ang:=ang*pi/180;
  26. end;
  27.  
  28. procedure l(x,y:real);
  29. begin
  30.     line(cos(ang)*x+sin(ang)*y,-sin(ang)*x + cos(ang)*y);
  31. end;
  32.  
  33. procedure m(x,y:real);
  34. begin
  35.     move(cos(ang)*x+sin(ang)*y,-sin(ang)*x + cos(ang)*y);
  36. end;
  37.  
  38.  
  39. begin
  40.           GetClickedCoord(h,v);
  41.           v:=v-minorAxis;
  42.              {DrawEllipse(h-2*majorAxis,v,h+2*majorAxis,v+4*minorAxis);}
  43.     openpoly(1,1);
  44.     moveto(h,v);
  45.     m(0,-minorAxis);
  46.     l(majorAxis*(1-x),0);
  47.     l(majorAxis*(1+x),minorAxis*(1+x));
  48.     l(0,2*minorAxis*(1-x));
  49.     l(-majorAxis*(1+x),minorAxis*(1+x));
  50.     l(-2*majorAxis*(1-x),0);
  51.     l(-majorAxis*(1+x),-minorAxis*(1+x));
  52.     l(0,-2*minorAxis*(1-x));
  53.     l(majorAxis*(1+x),-minorAxis*(1+x));
  54.     l(majorAxis*(1-x),0);
  55.     closepoly;
  56. end;
  57.